home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Memphis Amiga Group
/
MAG Tools Disk 2 (1991-09)(Memphis Amiga Group).zip
/
MAG Tools Disk 2 (1991-09)(Memphis Amiga Group).adf
/
MouseXY
/
Mouse-xy.asm
< prev
next >
Wrap
Assembly Source File
|
1978-01-05
|
19KB
|
728 lines
* Mouse-xy
* By Preben Nielsen
*
* This utility opens a little window in which it shows
* the mouse coordinates and the color at that position
* If the left mousebutton is being held down, the coordinates
* is relative to the spot where the mouse was when button got
* pressed.
*
* Double-clicking the right mousebutton while the window is
* active will make it try to jump to another screen (if any).
*
* The size of the window and the use of colors in it depends on
* the version of the Kickstart/Workbench (1.2/1.3 vs. 2.?) and
* the screen mode (LORES vs. HIRES)
*
* NOTE: There's no need to 'RUN' or 'RUNBACK' this program from the
* CLI. It is auto-detaching.
*
*HISTORY
* Made with Hisoft V2.12
*
* V1.0 17-Mar-91: First attempt
* 19-Mar-91: Added color monitoring
* 21-Mar-91: Even Works while intuition locks all layers because
* I now patch 'LockLayerRom' and 'UnLockLayerRom'.
* You can now monitor the coordinates even while you
* are sizing window, dragging window/icons and even
* when you select menus
* 07-Apr-91: I Now patch 'CloseScreen' so that the window
* automatically evacuates any closing screen.
* 19-Apr-91: Made some modifications to make it look better
* under WB2.0 (haven't actually tried it yet).
* V1.1 02-Aug-91: Damned - why didn't anyone tell me that Mouse-xy
* looked awful (strange) under kickstart 1.3. It
* shouldn't change its appearance like that except
* under kickstart 2.x ! Well, it has been fixed now.
* 15-Aug-91: Rewrote code to make it more safe to jump from
* screen to screen.
* 22-Aug-91: Now Mouse-xy can perfecty emulate the 2.x way of
* using colors in windows.
OPT O+
OPT O1+ ; Tells when a branch could be optimised to short
; OPT i+ ; Tells when '#' is probably missing
LMBBUT =$BFE001 ; Bit 6
incdir "AsmInc:"
include "P.i"
include "Intui.i"
include "Detach.i"
include "relMacros.i"
include "exec/exec_lib.i"
include "exec/memory.i"
include "exec/interrupts.i"
include "intuition/intuition.i"
include "intuition/intuition_lib.i"
include "graphics/graphics_lib.i"
include "libraries/dos_lib.i"
include "libraries/dosextens.i"
include "hardware/intbits.i"
xy_Change_B =SIGBREAKB_CTRL_D
xy_Change_F =1<<xy_Change_B
LMB_Change_B =SIGBREAKB_CTRL_E
LMB_Change_F =1<<LMB_Change_B
Remove_Screen_B =SIGBREAKB_CTRL_F
Remove_Screen_F =1<<Remove_Screen_B
WaitMask =xy_Change_F|LMB_Change_F|Remove_Screen_F
DB EQUR A4
dcDeclare A4
dcWord Relative ; 0 means absolute coordinates
dcAPtr xyProcess
dcAPtr GraphBase
dcAPtr IntuiBase
dcAPtr WBenchMsg ; Message from Workbench
dcAPtr ThisWindow ; APtr to Window
dcAPtr ThisScreen ; APtr to Screen
dcAPtr DeadScreen ; Screen to be closed
dcAPtr Rp ; APtr to RastPort
dcAPtr Up ; APtr to UserPort
dcAPtr Font ; Window-font
dcWord yPos ; y-position of text in window
dcWord xPos ; x-position of text in window
dcWord Height ; Height of window
dcWord Width ; Width of window
dcWord Version ; Kickstart version ID
dcWord mx ; \The order is important
dcWord my ; /
dcWord ox ; \The order is important
dcWord oy ; /
dcWord rx ; \The order is important
dcWord ry ; /
dcWord OldColor ; Old color
dcLong Class ; im_Class
dcWord Code ; im_Code
dcLong Micros ; \The order is important
dcLong Seconds ; /
dcLong OldMicros ; \The order is important
dcLong OldSeconds ; /
dcArea xyInterrupt,IS_SIZE ; Interrupt structure
dcEnd
Start DetachSingle <'Mouse-xy'>,4000,0
dcAlloc ; Allocate memory for variables
dcReset ; Clear the memory
Prepare Exec_Call
suba.l A1,A1
CallLib FindTask ; Find us
move.l D0,xyProcess(DB)
lea WProcess(PC),A1
move.l D0,(A1)
move.l D0,A2
tst.l pr_CLI(A2)
bne.S GetLibs
lea pr_MsgPort(A2),A0
CallLib WaitPort ; Wait for a message
lea pr_MsgPort(A2),A0
CallLib GetMsg then get it
move.l D0,WBenchMsg(DB) ; Save it for later reply
GetLibs lea GfxName(PC),A1
CallLib OldOpenLibrary
move.l D0,GraphBase(DB)
beq.S Error
lea IntuiName(PC),A1
CallLib OldOpenLibrary
move.l D0,IntuiBase(DB)
beq.S Error
SetInterrupt Prepare Exec_Call
lea xyInterrupt(DB),A1 ; Start vertical-blanking interrupt-Server
move.b #NT_INTERRUPT,LN_TYPE(A1); xyInterrupt->is_Node.ln_Type=NT_INTERRUPT
lea xyIntName(PC),A0
move.l A0,LN_NAME(A1) ; xyInterrupt->is_Node.ln_Name=xyIntName
lea xyIntServer(PC),A0
move.l A0,IS_CODE(A1) ; xyInterrupt->is_Code =xyIntServer
move.l DB,IS_DATA(A1) ; xyInterrupt->is_Data =DB
moveq #INTB_VERTB,D0
CallLib AddIntServer
GetFont Prepare Gfx_Call
lea TxtAttr(PC),A0
CallLib OpenFont
move.l D0,Font(DB)
beq.S Error
GetWindow suba.l A0,A0 ; Find any suitable screen
Call FindOtherScreen
beq.S Error
move.l D0,A1
Call OpenNewWindow
beq.S Exit
move.l D0,A0
Call UseNewWindow
SetPatches Call AddPatches
bra.S Main
Error
Exit Prepare Exec_Call
FreeInterrupt lea xyInterrupt(DB),A1
tst.l IS_CODE(A1) ; If this is set then server has been added
beq.S FreeFont
moveq #INTB_VERTB,D0
CallLib RemIntServer
FreeFont Prepare Gfx_Call
move.l Font(DB),D0
beq.S FreeIntui
move.l D0,A1
CallLib CloseFont
FreeIntui Prepare Exec_Call
move.l IntuiBase(DB),D0
beq.S FreeGfx
move.l D0,A1
CallLib CloseLibrary
FreeGfx move.l GraphBase(DB),D0
beq.S ReplyWB
move.l D0,A1
CallLib CloseLibrary
ReplyWB move.l WBenchMsg(DB),D2
beq.S AllDone
CallLib Forbid
move.l D2,A1
CallLib ReplyMsg ; Reply WBenchMessage if we are started from WB
AllDone dcFree
moveq #0,D0
rts
Main
Change Call UpdateDisplay
EventLoop move.l Up(DB),A0
moveq #0,D0
moveq #0,D1
move.b MP_SIGBIT(A0),D1
bset D1,D0
ori.l #WaitMask,D0
Prepare Exec_Call
CallLib Wait
move.l D0,D5
move.b Relative(DB),D7
move.l Up(DB),A0
moveq #0,D0
move.b MP_SIGBIT(A0),D0
btst D0,D5
beq CheckMouse
GetNextMsg move.l Up(DB),A0 ; Recieved a signal from intuition
Prepare Exec_Call
CallLib GetMsg
tst.l D0
beq CheckMouse
move.l D0,A1
move.l im_Class(A1),Class(DB)
move.w im_Code(A1),Code(DB)
move.l im_Seconds(A1),Seconds(DB)
move.l im_Micros(A1),Micros(DB)
CallLib ReplyMsg
move.l Class(DB),D1
cmp.l #CLOSEWINDOW,D1
beq.S DoExit
cmp.l #MOUSEBUTTONS,D1
beq.S DoButtons
tst.w Version(DB) ; No need to change color
beq.S 3$ ; under 1.2/1.3
cmp.l #ACTIVEWINDOW,D1
bne.S 1$
Call GetBackColor
move.w D0,D2
Call GetFrontColor
bra.S 2$
1$ cmp.l #INACTIVEWINDOW,D1
bne.S 3$
moveq #0,D2
moveq #1,D0
2$ Prepare Gfx_Call
move.l Rp(DB),A1
CallLib SetAPen
move.w D2,D0
move.l Rp(DB),A1
CallLib SetBPen
3$ Call UpdateDisplay ; Do some refreshing
bra GetNextMsg
DoExit Call RemPatches
bne.S 1$
Call CloseOldWindow
bra Exit
1$ Call TellUser
bra GetNextMsg
DoButtons cmp.w #MENUDOWN,Code(DB)
bne GetNextMsg
Prepare Intuition_Call ; Check for double-click
movem.l Seconds(DB),D2-D3
movem.l OldSeconds(DB),D0-D1
movem.l D2-D3,OldSeconds(DB)
CallLib DoubleClick
tst.l D0
beq GetNextMsg
move.l ThisScreen(DB),A0 ; Yes, a double-click
Call FindOtherScreen ; Find new suitable screen
beq.S 1$
move.l D0,A1
Call OpenNewWindow
beq.S 1$
Call CloseOldWindow ; We got a new window
move.l D0,A0 ; Close the old window
Call UseNewWindow ; Start using the new window
1$ bra GetNextMsg
CheckMouse btst #LMB_Change_B,D5
beq.S 1$
move.l my(DB),ry(DB)
tst.b D7
bne.S 2$
clr.l ry(DB) ; Released LMB
not.l oy(DB) ; ox/oy != mx/my
bra.S 2$
1$ btst #xy_Change_B,D5
beq.S CheckScreen
2$ move.w mx(DB),D0
sub.w rx(DB),D0
cmp.w ox(DB),D0
beq.S 3$
lea xyTxt+2(PC),A0
Call MakeSNumber
3$ move.w my(DB),D0
sub.w ry(DB),D0
cmp.w oy(DB),D0
beq.S 4$
lea xyTxt+9(PC),A0
Call MakeSNumber
4$ move.l my(DB),oy(DB)
move.l ThisScreen(DB),A1
lea sc_RastPort(A1),A1
move.w mx(DB),D0
bmi.S 5$
move.w my(DB),D1
bmi.S 5$
Prepare Gfx_Call
CallLib ReadPixel
tst.l D0
bge.S 6$
5$ lea xyTxt+20(PC),A0
move.b #' ',(A0)+
move.b #' ',(A0)+
move.b #'?',(A0)+
bra Change
6$ cmp.w OldColor(DB),D0
beq.s 7$
move.w D0,OldColor(DB)
lea xyTxt+20(PC),A0
Call MakeUNumber
7$ bra Change
CheckScreen btst #Remove_Screen_B,D5
beq.S 1$
move.l ThisScreen(DB),A0
move.l A0,DeadScreen(DB)
Call FindOtherScreen ; Find new suitable screen
beq.S 2$
move.l D0,A1
Call OpenNewWindow
beq.S 2$
Call CloseOldWindow ; We got a new window
move.l D0,A0 ; Close the old window
Call UseNewWindow ; Start using the new window
1$ bra EventLoop
*»»» Couldn't jump to another screen. Now try to exit
2$ Call RemPatches
bne.S 3$
Call CloseOldWindow
bra Exit
3$ Call TellUser
bra EventLoop
*»»» Call: A1 = Screen to open on
*»»» Open a window
OpenNewWindow Push D1/A0-A2/A6
Prepare Intuition_Call
lea NW(PC),A0
move.l A1,nw_Screen(A0)
move.w Width(DB),nw_Width(A0)
move.w Height(DB),nw_Height(A0)
CallLib OpenWindow
tst.l D0
Pop D1/A0-A2/A6
rts
*»»» Call: A0 = Window to use
*»»» Use new window from now on
UseNewWindow Push D1/A0-A2/A6
Prepare Intuition_Call
move.l A0,ThisWindow(DB)
move.l wd_WScreen(A0),ThisScreen(DB)
move.l wd_RPort(A0),Rp(DB)
move.l wd_UserPort(A0),Up(DB)
suba.l A1,A1
lea ScrTitle(PC),A2
CallLib SetWindowTitles
move.l ThisScreen(DB),A0
CallLib ScreenToFront
Prepare Gfx_Call
move.l Rp(DB),A2
moveq #0,D0 ; Assume 1.3 colors
moveq #1,D2
tst.w Version(DB)
beq.S 1$
exg D0,D2 ; Well, use 2.0 colors
1$ move.l A2,A1
CallLib SetAPen
move.l A2,A1
move.w D2,D0
CallLib SetBPen
move.l A2,A1
moveq #RP_JAM2,D0
CallLib SetDrMd
move.l Font(DB),A0
move.l A2,A1
CallLib SetFont
lea Counter(PC),A0
clr.w (A0)
lea WLayer(PC),A0
move.l rp_Layer(A2),(A0)
lea WScreen(PC),A0
move.l ThisScreen(DB),(A0)
Pop D1/A0-A2/A6
rts
*»»» Close the window and perhaps a screen
CloseOldWindow Push D0-D1/A0-A1/A6
Prepare Intuition_Call
lea WLayer(PC),A0
clr.l (A0) ; Disable patches
lea WScreen(PC),A0
clr.l (A0) ; Disable patch
move.l ThisWindow(DB),A0
CallLib CloseWindow
move.l DeadScreen(DB),D0
beq.S 1$
move.l D0,A0
CallLib CloseScreen ; Close pending screen
1$ clr.l ThisWindow(DB)
clr.l ThisScreen(DB)
clr.l DeadScreen(DB)
not.l my(DB)
Pop D0-D1/A0-A1/A6
rts
*»»» Call: A0 = current screen or NULL
*»»» Return: D0 = new screen or NULL
*»»» Tries to find a new screen big enough to open the window on
FindOtherScreen Push D1-D5/A1-A2/A6
Prepare Exec_Call
CallLib Forbid
Prepare Intuition_Call
move.l A0,D0
bne.S 1$
move.l ib_FirstScreen(A6),D0
bra.S CheckThisScreen
1$ move.l sc_NextScreen(A0),D0
NextScreen tst.l D0
bne.S CheckThisScreen
move.l ib_FirstScreen(A6),D0
CheckThisScreen cmp.l A0,D0
beq.S 5$ ; Have we checked all screens ?
move.l D0,A1
move.w sc_ViewPort+vp_Modes(A1),D1
andi.w #V_HIRES,D1
Prepare Exec_Call
lea Settings1.3H(PC),A2
cmp.w #34,LIB_VERSION(A6)
bgt.S 1$
tst.w D1
bne.S 2$
lea Settings1.3L(PC),A2
bra.S 2$
1$ lea Settings2.0H(PC),A2
tst.w D1
bne.S 2$
lea Settings2.0L(PC),A2
2$ movem.l (A2),D1-D2
movem.l D1-D2,Version(DB) ; Initialize variables (8 bytes !!!)
moveq #0,D1
move.b sc_BarHeight(A1),D1
tst.w Version(DB)
beq.S 3$
addq.w #1,D1
3$ move.w D1,Height(DB)
subq.w #7,D1
lsr.w #1,D1
addq.w #6,D1
move.w D1,yPos(DB)
move.w sc_Width(A1),D1
cmp.w Width(DB),D1
blt.S 4$
move.w sc_Height(A1),D1
cmp.w Height(DB),D1
bge.S 6$
4$ move.l D0,A1
move.l sc_NextScreen(A1),D0 ; Screen was too small, try another
bra.S NextScreen
5$ moveq #0,D0
6$ move.l D0,D2
Prepare Exec_Call
CallLib Permit
move.l D2,D0
Pop D1-D5/A1-A2/A6
rts
*»»» Write the string
UpdateDisplay Prepare Gfx_Call
move.l Rp(DB),A1
move.w xPos(DB),D0
move.w yPos(DB),D1
CallLib Move
lea xyTxt(PC),A0
move.l Rp(DB),A1
moveq #StringLength,D0
CallLib Text
rts
*»»» These routines return the colors that Kickstart 2.x uses for
*»»» title-text and window-frames in active windows. Perhaps I
*»»» am using system-private values here - I didn't have access
*»»» Kickstart 2.x includes and autodocs when I wrote this.
*»»»
*»»» Return: D0 = Color used for title-text in active windows.
GetFrontColor moveq #12,D0
bra.S GetColor
*»»» Return: D0 = Color used for window-frames in active windows.
GetBackColor moveq #10,D0
GetColor move.l ThisWindow(DB),A0
move.l wd_WScreen(A0),A0
move.l $1DE+4(A0),A0
move.w 0(A0,D0.W),D0
rts
*»»» Make an unsigned number
MakeUNumber moveq #' ',D1
bra.S NEG
*»»» Make a signed number
MakeSNumber moveq #' ',D1
ext.l D0
bge.S POS
neg.l D0
move.b #'-',(A0)+
bra.S NEG
POS move.b D1,(A0)+
NEG move.b D1,(A0)+
move.b D1,(A0)+
moveq #'0',D1
move.b D1,(A0)+
1$ tst.l D0
beq.S 2$
divu #10,D0
swap D0
add.w D1,D0
move.b D0,-(A0)
clr.w D0
swap D0
bra.S 1$
2$ rts
*»»» Call: A0 = Text to display
TellUser Push D0-D3/A0-A3/A6
lea ITxtAUTOBody(PC),A1
move.l ThisWindow(DB),A0
suba.l A2,A2
lea ITxtAUTOPos(PC),A3
moveq #0,D0
moveq #0,D1
move.w #220,D2
moveq #47,D3
Prepare Intuition_Call
CallLib AutoRequest
Pop D0-D3/A0-A3/A6
rts
*»»» Patch the 'LockLayerRom',
*»»» the 'UnlockLayerRom' and
*»»» the 'CloseScreen' functions
AddPatches Push D0-D1/A0-A1/A6
Prepare Exec_Call
CallLib Forbid
lea LockPatch(PC),A0 ; Patch 'LockLayerRom'
move.l A0,D0
move.l GraphBase(DB),A1
move.w #_LVOLockLayerRom,A0
CallLib SetFunction
move.l D0,JmpOldLock+2
lea UnlockPatch(PC),A0 ; Patch 'UnlockLayerRom'
move.l A0,D0
move.l GraphBase(DB),A1
move.w #_LVOUnlockLayerRom,A0
CallLib SetFunction
move.l D0,JmpOldUnlock+2
lea CloseSPatch(PC),A0 ; Patch 'CloseScreen'
move.l A0,D0
move.l IntuiBase(DB),A1
move.w #_LVOCloseScreen,A0
CallLib SetFunction
move.l D0,JmpOldCloseS+2
CallLib Permit
Pop D0-D1/A0-A1/A6
rts
*»»» Restore the old 'LockLayerRom',
*»»» the old 'UnlockLayerRom' and
*»»» the old 'CloseScreen' functions
*»»» If any of these functions has patched since we did it, then fail !
RemPatches Push D1-D2/A0-A1/A6
Prepare Exec_Call
CallLib Forbid
moveq #1,D2
move.l IntuiBase(DB),A0
lea CloseSPatch(PC),A1
cmp.l _LVOCloseScreen+2(A0),A1 ; Anyone else patching 'CloseScreen' ?
bne.S 1$
move.l GraphBase(DB),A0
lea UnlockPatch(PC),A1
cmp.l _LVOUnlockLayerRom+2(A0),A1 ; Anyone else patching 'UnLockLayerRom' ?
bne.S 1$
lea LockPatch(PC),A1
cmp.l _LVOLockLayerRom+2(A0),A1 ; Anyone else patching 'LockLayerRom' ?
bne.S 1$
move.l JmpOldCloseS+2(PC),D0 ; Restore 'CloseScreen' !
move.l IntuiBase(DB),A1
move.w #_LVOCloseScreen,A0
CallLib SetFunction
move.l JmpOldUnlock+2(PC),D0 ; Restore 'UnlockLayerRom' !
move.l GraphBase(DB),A1
move.w #_LVOUnlockLayerRom,A0
CallLib SetFunction
move.l JmpOldLock+2(PC),D0 ; Restore 'LockLayerRom' !
move.l GraphBase(DB),A1
move.w #_LVOLockLayerRom,A0
CallLib SetFunction
moveq #0,D2
1$ CallLib Permit
move.l D2,D0
Pop D1-D2/A0-A1/A6
rts
*»»» Call: A1 = DB
*»»» Inside the server the registers D0-D1/A0-A1/A5-A6 can be used
*»»» without restoring them on exit
xyIntServer btst #6,LMBBUT
seq D1
cmp.b Relative(A1),D1
beq.S 1$
move.b D1,Relative(A1)
move.l ThisScreen(A1),A0
move.l sc_MouseY(A0),my(A1)
move.l #LMB_Change_F,D0
bra.S 2$
1$ move.l ThisScreen(A1),A0
move.l sc_MouseY(A0),D1
cmp.l my(A1),D1
beq.S 3$
move.l D1,my(A1)
move.l #xy_Change_F,D0
2$ move.l xyProcess(A1),A1
Prepare Exec_Call
CallLib Signal
3$ moveq #0,D0 ; Set the Z flag
rts
*»»» These patch-functions prevents the graphics functions to
*»»» 'LockLayerRom' and 'UnlockLayerRom' on my windows layer
*»»»
*»»» Any calls to 'LockLayerRom' that had not yet been matched
*»»» by a 'UnlockLayerRom' when these pathches got installed, can
*»»» still use 'UnlockLayerRom' normally because of the counter.
LockPatch cmp.l WLayer(PC),A5
bne.S JmpOldLock
addq.w #1,Counter
rts
JmpOldLock jmp 12345678 ; Not my windows layer
UnlockPatch cmp.l WLayer(PC),A5
bne.S JmpOldUnlock
subq.w #1,Counter
bmi.S JmpOldUnlock
rts
JmpOldUnlock jmp 12345678 ; Not my windows layer
WLayer dc.l 0 ; Layer to compare against
Counter dc.w 0 ; Coordination counter
*»»» This patch-function helps Mouse-xy evacuate any closing screen.
*»»» I don't just close the window here because I don't know what the
*»»» Mouse-xy process is doing to the window at this moment. I don't
*»»» even close the screen here but instead I signal process to close
*»»» the window and screen under more controlled circumstances.
CloseSPatch cmp.l WScreen(PC),A0
bne.S JmpOldCloseS
Push D0-D1/A0-A1/A6
move.l #Remove_Screen_F,D0
move.l WProcess(PC),A1
Prepare Exec_Call
CallLib Signal
Pop D0-D1/A0-A1/A6
rts
JmpOldCloseS jmp 12345678 ; Not my windows screen
WScreen dc.l 0 ; Screen to compare against
WProcess dc.l 0 ; Process to signal
StringLength =23
StringSpace =StringLength*8
Kick1 =0
*»»» Defines for hires under kickstart 1.2-1.3 (and below ?)
Width1.3H =84+StringSpace
Height1.3H =10
xPos1.3H =30
*»»» Defines for lores under kickstart 1.2-1.3 (and below ?)
Width1.3L =51+StringSpace
Height1.3L =10
xPos1.3L =16
Kick2 =1
*»»» Defines for hires under kickstart 2.0 (and up ?)
Width2.0H =51+StringSpace
Height2.0H =11
xPos2.0H =23
*»»» Defines for lores under kickstart 2.0 (and up ?)
Width2.0L =40+StringSpace
Height2.0L =11
xPos2.0L =18
Settings1.3H dc.w Kick1,Width1.3H,Height1.3H,xPos1.3H
Settings1.3L dc.w Kick1,Width1.3L,Height1.3L,xPos1.3L
Settings2.0H dc.w Kick2,Width2.0H,Height2.0H,xPos2.0H
Settings2.0L dc.w Kick2,Width2.0L,Height2.0L,xPos2.0L
GfxName dc.b 'graphics.library',0
IntuiName dc.b 'intuition.library',0
xyIntName dc.b 'xy Interrupt',0
xyTxt dc.b 'x: 0 y: 0 Color: 0',0
ScrTitle dc.b 'Mouse-xy V1.1 1991 by Preben Nielsen',0
EVEN
IDCMP_Flags = CLOSEWINDOW|MOUSEBUTTONS|INACTIVEWINDOW|ACTIVEWINDOW
Other_Flags = RMBTRAP|WINDOWCLOSE|WINDOWDEPTH|WINDOWDRAG
NW dc.w 0,0,0,0
dc.b 0,1
dc.l IDCMP_Flags,Other_Flags,0,0,0,0,0
dc.w 0,0,0,0,CUSTOMSCREEN
ITxtAUTOBody IntuiText AUTOFRONTPEN,AUTOBACKPEN,AUTODRAWMODE,8,4,TxtCantLeave1,0 ;ITxtAUTOBody2
ITxtAUTOPos IntuiText AUTOFRONTPEN,AUTOBACKPEN,AUTODRAWMODE,6,3,TxtPos,0
TxtPos dc.b 'Stay',0
TxtCantLeave1 dc.b "Mouse-xy: Can't exit !!",0
EVEN
TxtAttr dc.l FontName
dc.w TOPAZ_EIGHTY
dc.b FS_NORMAL,FPB_ROMFONT
FontName dc.b 'topaz.font',0
END